home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / mac.lha / mac / oload.t < prev    next >
Text File  |  1988-08-09  |  1KB  |  36 lines
  1. (herald oload (env tsys))
  2.  
  3. (let ((oenv (make-locale standard-env 'orbit-env)))
  4.   (*define standard-env 'orbit-env oenv)
  5.  
  6.   (*define t-implementation-env 'orbit-env oenv)
  7.  
  8.   (*define oenv 'load-orbit
  9.     (lambda ()
  10.         (load '(build orbit_files) oenv)
  11.         (walk (lambda (f) (load f oenv)) (*value oenv '*orbit-files*))
  12.         (walk (lambda (f) (load f oenv)) (*value oenv '*top-files*))
  13.         (walk (lambda (f) (load f oenv)) (*value oenv '*front-files*))
  14.         (walk (lambda (f) (load f oenv)) (*value oenv '*back-end-files*))
  15.     (walk (lambda (f) (load f oenv)) (*value oenv '*orbit-m68-files*))
  16.         (walk (lambda (f) (load f oenv)) (*value oenv '*tas-files*))
  17.     (walk (lambda (f) (load f oenv)) (*value oenv '*tas-m68-files*))
  18.         (load '(back_end macgen) oenv)
  19.     (load-quietly            '(t3_primops mconstants) oenv)
  20.     ((*value oenv 'orbit-m68-init) 't3_primops)
  21.         (*define t-implementation-env 'comfile (*value oenv 'comfile))
  22.     (*define standard-env 'compile (*value oenv 'orbit))
  23.         (walk (lambda (sym)
  24.                 (*define standard-env sym (*value oenv sym)))
  25.               '(cl 
  26.                 listing
  27.                 orbit 
  28.                 comfile 
  29.                 compile-file 
  30.                 comfile2 
  31.                 tc-syntax-table
  32.                 make-empty-early-binding-locale
  33.                 ))))
  34.  
  35.     oenv)
  36.